﻿Imports System.Data
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Configuration.ConfigurationManager
Imports CondorTravel.BC
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL

Public Class RptEncuestas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try

            Dim objEncuestaBE As EncuestaBE
            Dim strTitulo As String = ""
            objEncuestaBE = New EncuestaBE
            objEncuestaBE.ClienteEnc = "" : objEncuestaBE.FechaInicio = "" : objEncuestaBE.FechaFin = ""
            If Not Request.QueryString("strFIni").Trim Is Nothing And Not Request.QueryString("strFFin").Trim Is Nothing Then
                If Request.QueryString("strFIni").Trim <> "" And Request.QueryString("strFFin").Trim <> "" Then
                    objEncuestaBE.FechaInicio = Request.QueryString("strFIni").Trim
                    objEncuestaBE.FechaFin = Request.QueryString("strFFin").Trim
                    strTitulo = "Rango de " & objEncuestaBE.FechaInicio & " hasta " & objEncuestaBE.FechaFin
                End If
            End If 
            If Not Request.QueryString("strCli").Trim Is Nothing Then
                If Request.QueryString("strCli").Trim <> "" Then
                    objEncuestaBE.ClienteEnc = Request.QueryString("strCli").Trim
                End If
            End If

            Dim dtDatos As New DataTable
            Dim objEncuestaBC As EncuestaBC
            objEncuestaBC = New EncuestaBC
            dtDatos = objEncuestaBC.ListaDtsEncuesta(objEncuestaBE).Tables(0)
            If dtDatos.Rows.Count <= 0 Then
                lblError.Visible = True
                crvRptEncuestas.Visible = False
            Else
                lblError.Visible = False
                crvRptEncuestas.Visible = True
            End If
            ' Asigno el reporte  
            Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            CrReport.Load(Server.MapPath("~/pages/Reportes/crtRptEncuestas.rpt"))
            Dim StrPunRec As TextObject = CrReport.ReportDefinition.ReportObjects.Item("txtUser")
            StrPunRec.Text = CType(Session("usuario"), UsuariosBE).CodUsuario
            Dim StrTit As TextObject = CrReport.ReportDefinition.ReportObjects.Item("txtTitulo")
            StrTit.Text = strTitulo
            CrReport.SetDataSource(dtDatos)
            crvRptEncuestas.ReportSource = CrReport


        Catch ex As ApplicationException
            Response.Write(ex.Message.ToString())
        End Try
    End Sub

End Class